home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIRAS / RASDIAL / RASStat.bas < prev   
Encoding:
BASIC Source File  |  2000-09-07  |  2.5 KB  |  36 lines
  1. Attribute VB_Name = "RemoteAccessServiceStatus"
  2. Public RASStatus As New Collection
  3.  
  4. Public Sub InitRASStatusStrings()
  5.   RASStatus.Add Item:="OpenPort", Key:=Trim(Str(RAS_OPEN_PORT)) '0
  6.   RASStatus.Add Item:="PortOpened", Key:=Trim(Str(RAS_PORT_OPENED)) '1
  7.   RASStatus.Add Item:="ConnectDevice", Key:=Trim(Str(RAS_CONNECT_DEVICE)) '2
  8.   RASStatus.Add Item:="DeviceConnected", Key:=Trim(Str(RAS_DEVICE_CONNECTED)) '3
  9.   RASStatus.Add Item:="AllDevicesConnected", Key:=Trim(Str(RAS_ALL_DEVICES_CONNECTED)) '4
  10.   RASStatus.Add Item:="Authenticate", Key:=Trim(Str(RAS_AUTHENTICATE)) '5
  11.   RASStatus.Add Item:="AuthNotify", Key:=Trim(Str(RAS_AUTH_NOTIFY)) '6
  12.   RASStatus.Add Item:="AuthRetry", Key:=Trim(Str(RAS_AUTH_RETRY)) '7
  13.   RASStatus.Add Item:="AuthCallback", Key:=Trim(Str(RAS_AUTH_CALLBACK)) '8
  14.   RASStatus.Add Item:="AuthChangePassword", Key:=Trim(Str(RAS_AUTH_CHANGE_PASSWORD)) '9
  15.   RASStatus.Add Item:="AuthProject", Key:=Trim(Str(RAS_AUTH_PROJECT)) '10
  16.   RASStatus.Add Item:="AuthLinkSpeed", Key:=Trim(Str(RAS_AUTH_LINK_SPEED)) '11
  17.   RASStatus.Add Item:="AuthAck", Key:=Trim(Str(RAS_AUTH_ACK)) '12
  18.   RASStatus.Add Item:="ReAuthenticate", Key:=Trim(Str(RAS_RE_AUTHENTICATE)) '13
  19.   RASStatus.Add Item:="Authenticated", Key:=Trim(Str(RAS_AUTHENTICATED)) '14
  20.   RASStatus.Add Item:="PrepareForCallback", Key:=Trim(Str(RAS_PREPARE_FOR_CALLBACK)) '15
  21.   RASStatus.Add Item:="WaitForModemReset", Key:=Trim(Str(RAS_WAIT_FOR_MODEM_RESET)) '16
  22.   RASStatus.Add Item:="WaitForCallback", Key:=Trim(Str(RAS_WAIT_FOR_CALLBACK)) '17
  23.   RASStatus.Add Item:="Projected", Key:=Trim(Str(RAS_PROJECTED)) '18
  24.   RASStatus.Add Item:="StartAuthentication", Key:=Trim(Str(RAS_START_AUTHENTICATION)) '19
  25.   RASStatus.Add Item:="CallbackComplete", Key:=Trim(Str(RAS_CALLBACK_COMPLETE)) '20
  26.   RASStatus.Add Item:="LogonNetwork", Key:=Trim(Str(RAS_LOGON_NETWORK)) '21
  27.   RASStatus.Add Item:="SubEntryConnected", Key:=Trim(Str(RAS_SUB_ENTRY_CONNECTED)) '22 or 19
  28.   RASStatus.Add Item:="SubEntryDisconnected", Key:=Trim(Str(RAS_SUB_ENTRY_DISCONNECTED)) '23 or 20
  29.   RASStatus.Add Item:="Interactive", Key:=Trim(Str(RAS_INTERACTIVE)) '4096
  30.   RASStatus.Add Item:="RetryAuthentication", Key:=Trim(Str(RAS_RETRY_AUTHENTICATION)) '4097
  31.   RASStatus.Add Item:="CallbackSetByCaller", Key:=Trim(Str(RAS_CALLBACK_SET_BY_CALLER)) '4098
  32.   RASStatus.Add Item:="PasswordExpired", Key:=Trim(Str(RAS_PASSWORD_EXPIRED)) '4099
  33.   RASStatus.Add Item:="Connected", Key:=Trim(Str(RAS_CONNECTED)) '8192
  34.   RASStatus.Add Item:="Disconnected", Key:=Trim(Str(RAS_DISCONNECTED)) '8193
  35. End Sub
  36.